home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mission to McDonaldLand
/
Mission To McDonaldLand.iso
/
code.cst
/
00014_Script_PRIZE
< prev
next >
Wrap
Text File
|
1998-10-29
|
5KB
|
145 lines
on enterFrame
global heading
global move
global updown
global objects
global silly
global silly2
global nomore
global CStop
global restoration
global castrestore
if CStop = 1 then
if the mouseH < the locH of sprite 30 then set the member of sprite 30 = "Left"
if the mouseH > the locH of sprite 30 then set the member of sprite 30 = "Right"
abort
end if
if silly > 0 then abort
if silly2 > 0 then abort
if the mouseV < 270 or the mouseH > the locH of sprite 30 - 20 and the mouseH < the locH of sprite 30 + 20 then
if heading = 1 then set the member of sprite 30 = "Left"
if heading = 2 then set the member of sprite 30 = "Right"
set move = 0
end if
if the mouseH > the locH of sprite 30 + 19 and the mouseV > 270 then
set the member of sprite 30 = "Walk Right"
set heading = 2
set move = 1
set the locH of sprite 30 = the locH of sprite 30 + 15
end if
if the mouseH < the locH of sprite 30 - 19 and the mouseV > 270 then
set the member of sprite 30 = "Walk Left"
set heading = 1
set move = 1
set the locH of sprite 30 = the locH of sprite 30 - 15
end if
if the mouseV > the locV of sprite 30 and the mouseV < the locV of sprite 30 + 50 then
if move = 0 and heading = 1 then set the member of sprite 30 = "Left"
if move = 0 and heading = 2 then set the member of sprite 30 = "Right"
set updown = 0
end if
if the mouseV < the locV of sprite 30 then
if the locV of sprite 30 > 300 then
if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
set the locV of sprite 30 = the locV of sprite 30 - 5
set updown = 1
end if
end if
if the mouseV > the locV of sprite 30 + 50 then
if the locV of sprite 30 < 350 then
if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
set the locV of sprite 30 = the locV of sprite 30 + 5
set updown = 1
end if
end if
if the locH of sprite 30 > 340 and objects < 4 then
if updown = 0 then set the member of sprite 30 = "Right"
set the locH of sprite 30 = 340
end if
if the locH of sprite 30 > 600 then
if updown = 0 then set the member of sprite 30 = "Right"
set the locH of sprite 30 = 600
end if
if the locH of sprite 30 < 40 then
set the locH of sprite 30 = 590
set the member of sprite 30 = "blank"
set nomore = 0
set castrestore = 0
set restoration = 0
puppetTransition 12, 1, 30, TRUE
go previous
set the member of sprite 30 = "Walk Left"
end if
end
on rightMouseDown
global silly
global silly2
global heading
global objects
global CStop
if CStop = 1 then abort
if the mouseH > the locH of sprite 30 - 60 and the mouseH < the locH of sprite 30 + 60 and silly < 1 then
if heading = 1 then
set the locH of sprite 30 = the locH of sprite 30 + 16
set the locV of sprite 30 = the locV of sprite 30 - 14
set the member of sprite 30 = "backflipL"
end if
if heading = 2 then
set the locH of sprite 30 = the locH of sprite 30 - 16
set the locV of sprite 30 = the locV of sprite 30 - 14
set the member of sprite 30 = "backflipR"
end if
set silly = 1
end if
if silly2 < 1 and (the mouseH < the locH of sprite 30 - 60 or the mouseH > the locH of sprite 30 + 60) then
if the locH of sprite 30 < 280 or objects = 4 then
set silly2 = 1
set the locV of sprite 30 = the locV of sprite 30 - 15
if heading = 2 then set the member of sprite 30 = "cartwheelR"
if heading = 1 then set the member of sprite 30 = "cartwheelL"
end if
end if
end
on exitFrame
global silly
global silly2
global heading
if silly > 0 then set silly = silly + 1
if silly > 12 then
set silly = 0
if heading = 1 then set the locH of sprite 30 = the locH of sprite 30 + 50
if heading = 2 then set the locH of sprite 30 = the locH of sprite 30 - 50
set the locV of sprite 30 = the locV of sprite 30 + 14
end if
if silly2 > 0 then
if heading = 2 then set the locH of sprite 30 = the locH of sprite 30 + 20
if heading = 1 then set the locH of sprite 30 = the locH of sprite 30 - 20
set silly2 = silly2 + 1
end if
if silly2 > 10 then
set silly2 = 0
set the locV of sprite 30 = the locV of sprite 30 + 15
end if
go the frame
end